home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Games / PC-SIG World of Games (CDRM1080710) (1993).iso / 2017 / BIKEINFO.BAS (.txt) next >
QuickBASIC Tokenized Source  |  1989-08-12  |  6KB  |  144 lines
  1. respq
  2. include
  3. falsej
  4. screen
  5. screen.width
  6. CNTNU
  7. KCNTNU
  8. OBackToMenu
  9. SPROMPT
  10. MAX.MSG.LENy
  11. BLINK
  12. OutfilPromptw
  13. DefScrAddr
  14. HelpFileNum
  15. RepFileNum
  16. ParmFileNumC
  17. TmpInFil
  18.     TmpOutFilC
  19. XorCntnuN
  20. In.Key
  21. GOODBYE
  22. THENGOTO
  23. END.PROG7
  24. prompt
  25. GetDbl
  26. DefVal
  27. Lngth
  28. lo.lim
  29. hi.lim
  30. helpkey 
  31. DiamPrompt
  32. DefDiam
  33. InputU
  34. Input.Stringc
  35. ret.data
  36. max.lend
  37. def.data
  38. GetInt
  39. NumChRings
  40. CRPromptN
  41. i.lim{
  42. SpPrompt
  43. NumSprockets
  44. OutFil
  45. IGNOR
  46. UCLTR
  47. LCLTRl
  48. DIGIT
  49. SPACEt
  50. CTLC<
  51. CTLRZ
  52. CTLU&
  53. CTLZ-
  54. CTL.END
  55. UPAROE
  56. DNARO
  57. LFARO
  58. RTARO]
  59. norfor
  60. norbak
  61. norbrdrR
  62. hifor
  63. hibak
  64. altfor
  65. altbak
  66. altbrdr#
  67. atnfor#
  68. atnbak
  69. ProgName
  70. BusName
  71. Address1
  72. Address2p
  73. State
  74. nofor
  75. NumCRTeethN
  76. NumSpTeeth
  77.     CRTPrompt
  78. CRTrow
  79. SpTrow0
  80.     SpTPrompt
  81. ColLoc
  82. Cadence
  83. InPerRev
  84. NumCadences
  85. Cadnce
  86. OCNTNU
  87.     Conductor@
  88. FileSpecMode
  89. MusFileDir
  90. Editor
  91.  Program to generate statistics for a bicycle
  92.  Programmed by Constantine Roussos - July, 1988
  93. m:sysconst.bas'
  94. Press <RETURN> to continue. 
  95. Press any key to continue. "
  96. Press any other key to continue. "
  97. Press any other key to return to menu.
  98. Enter choice. 
  99. Enter name of output file 
  100. m:parmcomn.bas'
  101. Press X to exit - any other key to continue.
  102. Enter diameter of wheel.
  103. Enter number of Chain Rings (front gears).
  104. Enter number of sprockets (rear gears)."
  105. BICYCLE INFORMATION PROGRAM - Programmed by Constantine Roussos"
  106.   -  July, 1988"
  107. This program will generate information about your bicycle"
  108. from information you will input.  You will need to know"
  109. the number of teeth in each of your chain rings and sprockets"
  110. and the diameter of your wheels.
  111. CHRINGS"
  112. SPROCKETS"
  113. Enter number of teeth in chain ring #"
  114. CRTEETH"
  115. Enter number of teeth in sprocket #"
  116. CRTEETH"
  117. CON"e
  118. OutFil7
  119. MULTI-SPEED BICYCLE INFORMATION GENERATOR"
  120. Wheel Diameter = ##"
  121. Number of Chain Rings = #"
  122. Number of Sprockets = #"
  123. Chain Ring
  124. Number of Teeth"
  125. Sprocket
  126. Number of Teeth"
  127. GEAR RATIO
  128. Sprocket
  129. Chain Ring
  130. #.###"
  131. GEAR INCHES"
  132. Sprocket
  133. Chain Ring
  134. ###.##
  135. INCHES TRAVELLED PER REVOLUTION"
  136. Sprocket
  137. Chain Ring
  138. ###.#"
  139. MILES PER HOUR AT A CADENCE OF
  140. Sprocket
  141. Chain Ring
  142. ###.##
  143. Thanks for using BIKEINFO"
  144.